30 PRINT "P";: FOR I = 1 TO 600: NEXT I: PRINT "R";: FOR I = 1 TO 600: NEXT I: PRINT "E";: FOR I = 1 TO 600: NEXT I: PRINT "S";: FOR I = 1 TO 600: NEXT I: PRINT "E";: FOR I = 1 TO 600: NEXT I: PRINT "N";: FOR I = 1 TO 600: NEXT I
40 PRINT "T";: FOR I = 1 TO 600: NEXT I: PRINT "S";: FOR I = 1 TO 600: NEXT I: PRINT : PRINT
45 HTAB 14
50 PRINT "WHAT I DO.": PRINT TAB( 8)"BY JEFFREY MARRACCINI"
51 VTAB 20: PRINT "PLEASE PRESS A KEY TO START.";: GET R$: HOME : VTAB 5
55 PRINT : PRINT
60 PRINT : PRINT "INSTRUCTIONS-"
70 VTAB 09: PRINT "-------------"
80 PRINT : PRINT " A SCREEN EASILY FILLS WITH DATA- SO WHEN YOU SEE A '@' AT THE SCREEN BOTTOM PRESS A KEY TO CONTINUE."
90 VTAB 23: PRINT "@";: GET A$: VTAB 9: FOR I = 9 TO 23: PRINT " ";: NEXT I
100 VTAB 9: PRINT "CONTINUING--": PRINT " THIS PROGRAM SHOWS THE MAJOR ABILITIESOF THE APPLE II AND APPLE II PLUS. THIS PROGRAM IN NO WAYS SHOWS THE TYPES OF SOFTWARE FOR THE APPLE II AND -II PLUS."
110 VTAB 23: PRINT "@";: GET A$: HOME
120 FOR I = 1 TO 20:: PRINT "NOW TO BEGIN": INVERSE :: PRINT "NOW TO BEGIN": FLASH :: PRINT "NOW TO BEGIN": NORMAL : NEXT I
130 FOR I = 1 TO 22: PRINT " ": NEXT I
140 VTAB 4
150 PRINT : PRINT "THE APPLE II HAS A 40 COLUMN, 23 ROW SCREEN. (FOR TEXT LIKE THIS) THE APPLE HAS TWO GRAPHICS MODES (SEE LATER)."
160 VTAB 23: PRINT "@";: GET R$: HOME
161 PRINT " THE TEXT SCREEN CAN PRINT CHARACTERS STORED IN A PORTION OF MEMORY. MOST II'SDISPLAY A 40 COLUMN, UPPER CASE DISPLAY.APPLES CAN USE A CARD THAT MAKES AN 80 COLUMN, LOWER & UPPER CASE DISPLAY.": VTAB 23: PRINT "@";: GET R$: HOME
170 PRINT "TO DISPLAY THE LOW-RESOLUTION GRAPHICS SCREEN, TYPE 'GR' AND PRESS RETURN.": PRINT : PRINT : PRINT "DO SO NOW.": PRINT : INPUT "]";G$
180 IF G$ = "GR" THEN GR : GOTO 200
190 IF G$ < >"GR" THEN PRINT "SORRY, PLEASE TYPE 'GR' AND PRESS RETURN": VTAB 23: GOTO 170
200 HOME
210 VTAB 21: PRINT "THIS IS THE LO-RESOLUTION SCREEN. PRETTYBLANK.": PRINT "@";: GET P$: HOME : TEXT : HOME
220 PRINT " TO PLOT A POINT, THE COLOR MUST BE GIVEN. COLORS ARE FROM 0 TO 15: YOU WILL SEE THEM ALL.": VTAB 23: PRINT "@";: GET P$: HOME
230 PRINT "THE OPERATION FOR SELECTING COLOR IS AS FOLLOWS: ENTER 'COLOR=X' (X=COLOR NUMBER) AND PRESS RETURN. NOTHING HAPPENS!! THERE BETTER BE AN EXPLANATION FOR THIS!!!!": PRINT : PRINT "WELL, ER ,AHH UMMM...,": PRINT : PRINT "FIRST A POINT MUST BE PLOTTED ! ! !
235 VTAB 23: PRINT "@";: GET S$: HOME
236 MP = 235
240 PRINT " TO PLOT A POINT, 1) YOU MUST KNOW THATTHE SCREEN IS A 40 BY 40 GRID OF BLOCKS IN GRAPHICS, 2) THE FORM IS 'PLOT X,Y' (X,Y ARE THE COORDINATES)": PRINT : PRINT "PLEASE DO THAT NOW, USING 1,8 AS THE COORDINATES."
255 IF P$ = "PLOT 1" THEN GR : COLOR= 1: PLOT 1,8: VTAB 21: PRINT "PLOT 1,8 HAS BEEN EXECUTED.": PRINT "@";: GET S$: HOME : GOTO 280
260 IF P$ < >"PLOT 1,8" THEN HOME : PRINT "SORRY, PLEASE READ THE DIRECTIONS.": GOTO 235
280 VTAB 21: PRINT "NOW TO DRAW A LINE FROM THAT POINT.": HLIN 1,39 AT 8: VTAB 23: PRINT "@";: GET AW$: TEXT : HOME : HOME
290 PRINT " ALL I DID THERE WAS TO ISSUE AN 'HLIN' COMMAND, (FORM HLIN START,FINISH AT Y). IN THIS CASE IT WAS 'HLIN 1,39 AT 8'. ANOTHER COMMAND WITH THE SAME FORM: VLIN, FOR VERTICAL LINES. (VLIN X,X+ AT Y)": VTAB 23: PRINT "@";: GET PP$: HOME
300 TEXT : HOME : PRINT "NOW FOR A TREAT. A TOTAL LO-RES PICTURE WILL BE DRAWN.": VTAB 23: PRINT "@";: GET R$: GR
310 COLOR= 2: FOR I = 0 TO INT(39/2): HLIN 0,39 AT I: NEXT I: COLOR= 7: FOR I = INT(39/4 +7) TO INT(39/2): HLIN 0,39 AT I: NEXT I
311 FOR I = INT(39/4) TO INT(39/4 +6): COLOR= 2: HLIN 0,39 AT I: NEXT I
315 HOME : COLOR= 12: FOR I = INT(39/2 +1) TO 39: HLIN 0,39 AT I: NEXT I
320 COLOR= 13: HLIN 13,21 AT INT(39/2)
330 HLIN 14,20 AT INT(39/2 -1)
340 HLIN 15,19 AT INT(39/2 -2)
350 COLOR= 8: FOR I = 1 TO 3: VLIN 10,30 AT 28 +I: NEXT I
360 COLOR= 12: HLIN 25,34 AT 9
361 HLIN 24,35 AT 8: HLIN 23,36 AT 8: HLIN 22,37 AT 7: HLIN 21,38 AT 6
362 HLIN 20,39 AT 5: HLIN 19,39 AT 4: HLIN 18,39 AT 3: HLIN 17,39 AT 2: HLIN 16,39 AT 1: HLIN 15,39 AT 0
363 COLOR= 4: VLIN 30,27 AT 6: VLIN 32,29 AT 10: VLIN 27,30 AT 14: COLOR= 1
364 COLOR= 3: PLOT 5,25: PLOT 7,25: PLOT 6,26
365 COLOR= 9: PLOT 10,28: PLOT 9,27: PLOT 11,27
366 COLOR= 1: PLOT 14,26: PLOT 13,25: PLOT 15,25
367 REM ADDITIONAL SPACE-----
400 VTAB 23: PRINT "@";: GET R$: TEXT : HOME
405 PRINT " PRETTY, ISN'T IT ? AND IT IS EASY.": VTAB 23: PRINT "@";: GET R$: HOME
407 VTAB 15: PRINT "PLEASE WAIT, LOADING PART 2.": PRINT : PRINT CHR$(4)"NOMON I,O,C": PRINT : PRINT CHR$(4)"RUN WHAT I DO PART2"